home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Serious Software / SiteCam 3.0 demo / Extras / Sample AppleScripts / FTP Scripts / Fetch sample < prev    next >
Text File  |  1998-05-28  |  973b  |  28 lines
  1. -- A simple script to save the last file saved to a remote FTP directory.
  2. -- Change all the xxxx's to your own values. 
  3. -- In Fetch--Under Customize, Preferences, Misc. "Show Sign-up dialog at startup" should be unchecked.
  4.  
  5. with timeout of 1000 seconds
  6.     try
  7.         -- Get location of the last file saved.  
  8.         tell application "SiteCam.ppc"
  9.             set lastFileSaved to last image file of active document
  10.         end tell
  11.         
  12.         tell application "Fetch 3.0.3"
  13.             make new transfer window at beginning with properties {hostname:"ftp.xxxxxx.com", userid:"xxxxxxUserName", password:"xxxxxxPassword", initial directory:""}
  14.             put into transfer window "ftp.xxxxxx.com" item lastFileSaved text format Raw Data binary format Raw Data
  15.             close front window saving no -- we avoid any dialogs by adding "saving no"
  16.         end tell
  17.     on error errMsg number errNum
  18.  
  19.         tell application "Fetch 3.0.3"    
  20.             -- just close the window if its open...
  21.             close front window saving no
  22.         end tell
  23.  
  24.  
  25.     end try
  26. end timeout
  27.  
  28.